home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / 75YES.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  185 lines
  1. ;\|
  2. ;75YES.SRC     Translated from 75YES.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;OVER75   01:34:21 PM   9/ 4/90                    |
  4. ;Program generated with the database file lister|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(SELECT.FLD.F1|D| 10||)
  18.     define(SELECT.FLD.T1|D| 10||)
  19.     define(SELECT.FLD.F2|N|  1|0|)
  20.     define(SELECT.FLD.T2|N|  1|0|)
  21.     define(MEM_VIS1|A|1||)
  22.     trap(I|G|EXIT)
  23.     pchr(P|10)
  24.     pchr(P|11)
  25.     pchr(P|4)
  26.     clrscr
  27.     clrlne(1|25)
  28.     open(PATIENT |||)
  29.     gosub GET.DATE
  30.     mount(SELECT|S||)
  31.     enter(SELECT.FLD.F1||||||||)
  32.     enter(SELECT.FLD.T1||||||||)
  33.     enter(SELECT.FLD.F2||||||||)
  34.     enter(SELECT.FLD.T2||||||||)
  35.     MEM_VIS1 = ("Y")
  36.     trap(P|G|TOF)
  37.     mount(REPORT|R|P)
  38.     pset(128|66|60)
  39.     pchr(P|4)
  40.     trap(I|G|FINI)
  41.     find(B|PATIENT.NAME   |NO.RECS)
  42. PRT.REC:
  43.     if SELECT.FLD.F1 <> (0) then  if SELECT.FLD.F1 > (DATE.OF.BIRTH) goto RD.NEXT
  44.     if SELECT.FLD.T1 <> (0) then  if SELECT.FLD.T1 < (DATE.OF.BIRTH) goto RD.NEXT
  45.     if SELECT.FLD.F2 <> (0) then  if SELECT.FLD.F2 > (DOCTOR) goto RD.NEXT
  46.     if SELECT.FLD.T2 <> (0) then  if SELECT.FLD.T2 < (DOCTOR) goto RD.NEXT
  47.     if MEM_VIS1 <> (VISIT) goto RD.NEXT
  48.     pfmt(6||||)
  49.     TOT.RECS = (TOT.RECS + 1)
  50. RD.NEXT:
  51.     find(N|PATIENT |FINI)
  52.     goto PRT.REC
  53. FINI:
  54.     pfmt(5||||)
  55.     pfmt(8||||)
  56.     pblnk(2)
  57.     pfmt(7||||)
  58.     trap(P|D|)
  59.     ptof
  60.     run("recmenu")
  61. TOF:
  62.     PAGE = (PAGE + 1)
  63.     pfmt(1||||)
  64.     pfmt(2||||)
  65.     pfmt(3||||)
  66.     pblnk(1)
  67.     pfmt(4||||)
  68.     pfmt(5||||)
  69.     ret
  70. GET.DATE:
  71.     time(CHG.TIME|G)
  72.     date(CHG.DATE|G)
  73.     AM.PM = ("AM")
  74.     if CHG.TIME > (43199) doO 
  75.         {
  76.         AM.PM = ("PM")
  77.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  78.         }
  79.     TIME.STRG =mid(CHG.TIME|1|8|)
  80.     STDDAYS =day(CHG.DATE)
  81.     STDMONTH =xmt(CHG.DATE)
  82.     STDAYH =mid(CHG.DATE|4|2|)
  83.     STDYEAR =mid(CHG.DATE|7|4|)
  84.     PG.STRG = (PAGE)
  85.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  86.     ret
  87. NO.RECS:
  88.     pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  89. EXIT:
  90.     run("recmenu")
  91. \R REPORT  
  92.                                             OVER75 - Database File Listing for: PATIENT
  93.                                      &
  94.                                                         Page # &
  95. PATIENT.NAME                 ADDRESS1                DATE.OF.BIRTH  DOCTOR  TELEPHONE  SEEN     SENT     VISIT
  96. ---------------------------  ----------------------  -------------  ------  ---------  ----     ----     -----
  97. &                            &                       &              &       &          &        &         &
  98. Total number of records printed: &
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140. \
  141. DATE.TIME.FLD
  142. PAGE
  143. PATIENT.NAME
  144. ADDRESS1
  145. DATE.OF.BIRTH
  146. DOCTOR
  147. TELEPHONE
  148. SEEN
  149. SENT_FOR
  150. VISIT
  151. TOT.RECS
  152. \
  153. \STSELECT  
  154. THIS PRINTS OUT THE OVER 75,S WHO HAVE REQUESTED A VISIT .
  155. ==========================================================
  156.  
  157.  DATE.OF.BIRTH
  158.  FROM- &           LOWEST
  159.  THRU- &           HIGHEST
  160.  DOCTOR
  161.  FROM- &  EG FROM=1 THRU=1 FOR DRV
  162.  THRU- &       OR FROM=1 THRU=4 FOR ALL IN NO SPECIFIC ORDER
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178. \
  179. SELECT.FLD.F1
  180. SELECT.FLD.T1
  181. SELECT.FLD.F2
  182. SELECT.FLD.T2
  183. \
  184.  
  185.